home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINSYSTM
/
WCUTIL10.ZIP
/
WCUTIL.TPL
< prev
next >
Wrap
Text File
|
1993-07-26
|
25KB
|
716 lines
;***********************************************************************
;WCUTIL TPL file
;This TPL file has been customized for use with WCUTIL.EXE an add-on
;utility for WinCIS.
;
;Lines commented out by the author will be marked with three semi-colons
;
;blocks of added commands will be delineated by:
;------------------------------------------------------------------------
;as will explanatory comments
;***********************************************************************
[PROLOG]
;
; This script file was created on &&DATE at &&TIME by &&USERNAME.
;
;***********************************************************************
; WinCIS &&VERSION
; Copyright(C) 1992
; Larry Lee (76670,1471)
; 16038 Augusta Drive
; Chino Hills, Ca 91709
; (Script language notes have been moved to the bottom of file)
;***********************************************************************
;
;
;------------------------------------------------------------------------
;;;NOTE: I have found that because I have set the next three options
;;; permanently, they can be commented out. This speeds the logon marginally
SEND SET BRIEF YES^M
WAIT !
SEND SET PAGED NO^M
WAIT !
SEND SET BLANK YES^M
WAIT !
;;;
SEND SET WIDTH 80^M
WAIT !
;
;------------------------------------------------------------------------
; Execute WCUTIL.SCR if it exists in the ControlPath
;------------------------------------------------------------------------
IF FILEEXISTS &&CONTROLPATHWCUTIL.SCR
@ECHO No WCUTIL.SCR to execute.
%ECHO Executing WCUTIL.SCR...
%DO &&CONTROLPATHWCUTIL.SCR
%KILLFILE &&CONTROLPATHWCUTIL.SCR
;------------------------------------------------------------------------
[EPILOG]
;
;***********************************************************************
; All Done, Just Log off CompuServe
;***********************************************************************
;
LOGOFF
[READ MAIL]
;
; Read Any Waiting CompuServe Mail
;
IF MAILWAITING
@REMOVEACTION MAIL Read.Waiting
%ECHO Reading CompuServe Mail
%READMAIL &&SYSMESSAGEPATHMAIL.MSG
%%ECHO CompuServe Mail Read Complete!
%%REMOVEACTION MAIL Read.Waiting
%@ECHO Unable to Read your CompuServe Mail!
[SEND MAIL]
;
; Send Any Waiting CompuServe Mail
;
IF FILEEXISTS &&SYSMESSAGEPATHMAIL.SND
@REMOVEACTION MAIL Send.Replies
%ECHO Sending CompuServe Mail
%SENDMAIL &&SYSMESSAGEPATHMAIL.SND
%@ECHO Unable to Send your CompuServe Mail!
%%ECHO CompuServe Mail Send Complete!
%%REMOVEACTION MAIL Send.Replies
[PROMPT MAIL OUTBOX]
;
; Ask what about Overwriting to the Mail OutBox
;
%%ASK OVERWRITE? &&SYSMESSAGEPATHMAIL.MOX Do you want to save your outgoing Mail in &&SYSMESSAGEPATHMAIL.MOX
%%%ECHO Saving Your Out Going Mail to &&SYSMESSAGEPATHMAIL.MOX
%%%FILEMARK &&SYSMESSAGEPATHMAIL.MOX MAIL_SENT CIS:MAIL
%%%COPYFILE &&SYSMESSAGEPATHMAIL.SND &&SYSMESSAGEPATHMAIL.MOX
; At This point the Mail File Is No Longer Needed
%%KILLFILE &&SYSMESSAGEPATHMAIL.SND
[APPEND MAIL OUTBOX]
;
; Append Queued Mail to the Mail OutBox
;
%%ECHO Appending your outgoing Mail to &&SYSMESSAGEPATHMAIL.MOX
%%FILEMARK &&SYSMESSAGEPATHMAIL.MOX MAIL_SENT &&FORUMNAME
%%COPYFILE &&SYSMESSAGEPATHMAIL.SND &&SYSMESSAGEPATHMAIL.MOX
; At This point the Mail File Is No Longer Needed
%%%KILLFILE &&SYSMESSAGEPATHMAIL.SND
[OVERWRITE MAIL OUTBOX]
;
; Overwrite Queued Mail to the &&FORUMNAME OutBox
;
%%ECHO Saving your outgoing Mail in &&SYSPATH&&FORUMNAME.MOX
%%KILLFILE &&SYSMESSAGEPATHMAIL.MOX
%%FILEMARK &&SYSMESSAGEPATHMAIL.MOX MAIL_SENT &&FORUMNAME
%%COPYFILE &&SYSMESSAGEPATHMAIL.SND &&SYSMESSAGEPATHMAIL.MOX
; At This point the Message File Is No Longer Needed
%%%KILLFILE &&SYSMESSAGEPATHMAIL.SND
[DELETE MAIL OUTBOX]
;
; Never Save Queued Mail to the Mail OutBox
;
%%ECHO Deleting outgoing Mail: &&SYSMESSAGEPATHMAIL.SND
; At This point the Mail File Is No Longer Needed
%%KILLFILE &&SYSMESSAGEPATHMAIL.SND
[GO FORUM]
;
;***********************************************************************
; Lets enter the &&FORUMNAME forum, &&FORUMTITLE
;***********************************************************************
ECHO Going to &&FORUMNAME, &&FORUMTITLE
;----------------------------------------------------------------------
;If you wish to grab forum announcements each time you enter a forum
;uncomment the following four lines:
;----------------------------------------------------------------------
;;;FILEMARK &&MESSAGEPATH&&FORUMNAME.MSG Read_Annoucements &&FORUMNAME
;;;PUTFILE &&MESSAGEPATH&&FORUMNAME.MSG ^M^J#: 0 S-1/ Forum Annoucement^M^J 01-Jan-93 &TIME
;;;PUTFILE &&MESSAGEPATH&&FORUMNAME.MSG ^M^JSb: News Flash^M^JFm: System^M^JTo:^M^J^M^J
;;;CAPTURE &&MESSAGEPATH&&FORUMNAME.MSG
;------------------------------------------------------------------------
GO &&GATEWAY:&&FORUMNAME
;
; Join Forum If Required!
;
%IF NOT JOINED
%@REMOVEACTION &&FORUMNAME Join.Forum
%%ECHO Attempting to Join &&FORUMNAME, &&FORUMTITLE
%%JOIN
%%%ECHO Successfully Joined &&FORUMNAME, &&FORUMTITLE
%%%REMOVEACTION &&FORUMNAME Join.Forum
%%WAIT !
%%@ECHO Sorry, unable to Join &&FORUMNAME, &&FORUMTITLE
%%@SETERRORLEVEL 0 FALSE
;
; Set Session Defaults to Command Mode for Forum Processing
;
;------------------------------------------------------------------------
; BY DEFAULT WINCIS SETS THE FORUM DEFAULTS EVERY TIME IT ENTERS A FORUM
; I FIND THIS WASTED TIME. THEREFORE, IN MY OWN TPL I HAVE COMMENTED OUT
; THE FOLLOWING SIX LINES AND CHANGED THE LOGIC LATER IN THE TPL FILE UNDER THE
; [SET FORUM DEFAULTS] SECTION SO THAT THE PROMPT CHARACTER IS SET TO ^G
; PERMANENTLY
%ECHO Setting Temporary Session Defaults in &&FORUMNAME, &&FORUMTITLE
%SEND OPT;INI;1;MOD;3;EDI EDIT;PAU N;REP LIST;TYPE N;SKIP N;CHAR;S^M
%WAIT New prompt:
%%SEND ^^G^M
%WAIT FORUM !
%@SETERRORLEVEL 0 FALSE
;------------------------------------------------------------------------
;
@ECHO Sorry, unable to enter the &&FORUMNAME Forum!
%ECHO Now in &&FORUMNAME, &&FORUMTITLE
;
; Check for Waiting Messages in the &&FORUMNAME Forum
;
%IF MESSAGESWAITING
%@ECHO No Messages Waiting to be Read On &&FORUMNAME, &&FORUMTITLE
%@REMOVEACTION &&FORUMNAME Read.Waiting.Messages
%%ECHO Reading Waiting Messages of &&FORUMNAME, &&FORUMTITLE
%%SCAN &&MESSAGEPATH&&FORUMNAME.MSG READ WAIT
%%REMOVEACTION &&FORUMNAME Read.Waiting.Messages
;
;------------------------------------------------------------------------
;Check to see if there's an upload file
;------------------------------------------------------------------------
%IF FILEEXISTS &&CONTROLPATH&&FORUMNAME.UPL
%@ECHO NO &&CONTROLPATH&&FORUMNAME.UPL TO EXECUTE
%%ECHO Executing upload script: &&CONTROLPATH&&FORUMNAME.UPL
%%DO &&CONTROLPATH&&FORUMNAME.UPL
%%%KILLFILE &&CONTROLPATH&&FORUMNAME.UPL
SETERRORLEVEL 2 TRUE
[GO LIB]
;
; Lets enter Library #&&LIBRARY of &&FORUMNAME
%LIB &&LIBRARY
;
; If something goes wrong... Inform the user and bypass this Library!
; Otherwise all is well... Continue processing (downloads, catalogs, etc)
;
%@ECHO Sorry, unable to enter Library #&&LIBRARY of &&FORUMNAME, &&FORUMTITLE
%%ECHO Now In &&FORUMNAME, &&FORUMTITLE Libraries
;
[JOIN FORUM]
;
; Commented Out Since It's Done at GO FORUM Automatically
; Join The Forum
;
; %IF NOT JOINED
; %@REMOVEACTION &&FORUMNAME Join.Forum
; %%ECHO Attempting to Join &&FORUMNAME, &&FORUMTITLE
; %%JOIN
; %%%ECHO Successfully Joined &&FORUMNAME, &&FORUMTITLE
; %%%REMOVEACTION &&FORUMNAME Join.Forum
; %%@ECHO Sorry, unable to Join &&FORUMNAME Forum!
[SET FORUM DEFAULTS]
;
; Set Permanent Session Defaults to Command Mode for Forum Processing
;
%ECHO Setting Permanent Session Defaults in &&FORUMNAME, &&FORUMTITLE
%SEND OPT;INI;1;MOD;3;EDI EDIT;PAU N;REP LIST;TYPE N;SKIP N;P^M
;-----------------------------------------------------------